RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Ou 


ZTITLE ‘Perform rrguyore PhEcss ing' 
MODULE endwrd ( IDENT E 

<8L1SS32C, ADDRESSING_MODE (EXTERNAL 
NONE X TERNAL 


LONG_RELATIVE 
LONG-RELATIVES J 


~~ 


BEGIN 


LRA RRR REAR EEE EEA EEE EEE EAE E EE 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGKTS RESERVED. 


® 
* 
® 
® 
+ 
: ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
® 
* 
® 
* 
wv 
® 
*® 
a 
* 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* onepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
hes e 


OOOCQCooCooooooooooooooocoo 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RARER ERRATA REE 
i] 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

| ABSTRACT: Handles end of word processing. 

ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: May, 1978 
| 
| 
| 
| 
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Revision History 14-Sep-1 RUNOFF .SRCJENDWRD.BLI; (2) 

041 1 ZSBITL ‘Revision History' 

org 7. 

043 1 ' MODIFIED BY: 
0044 1! 
Baez 1 / 009 REMO0009 Ray Marshall 7-November-1983 

peg 1 Added logic to reset the multinational character set case 
0047 1 rules, too. 
i 
Bey ! Added outionnl tis be pass-through escape sequences. 
R826 1/ 007 REROO007 Ron Randall 07-Mar-1983 

55 1 Global edit of all modules. Updated module names, idents, 

opee } & copyright dates. Changed require files to BLISS library. 
0056 1 i- 
0057 1 


008 KFA00008 Alden 13-Sep-1983 
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60 R28 ZSBTTL "Module Level Declarations’ 

2 BT 

6 06 i TABLE OF CONTENTS: 

gs O68 1 | 

66 06 INCLUDE FILES: 

68 06 LIBRARY 'NXPORT:XPORT'; ! XPORT Library 

+4 98 REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
71 u 019 IF DSRPLUS XTHEN 

t U 0 9 LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
74 0 LIBRARY 'REQ:DSRLIB’; ' DSR BLISS Library 

75 0 “FI 

76 0 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 
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GN 
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1 
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0 
0 
0 
020 
020 
020 
020 
+ 054 
r O21 EXTERNAL 
84 021 GCA _: GCA_DEFINITION 
85 021 IRAC : IRAC_DEFINITION, 
86 os! MRA : REF FIXED_STRING, 
87 921 SCA : SCA_DEFINITION, 
88 21 TSF : TSF-DEFINITION: 
90 31 EXTERNAL ROUTINE 
91 021 ENDCHR, 
9 022 OUTLIN, 
9 022 OUTXPH: 


EXTERNAL REFERENCES: 
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GLOBAL ROUTINE ENDWRD (SPACE, JUSTIFY, HYPHENATE) : NOVALUE = 


zv 
an 


144 

FUNCTIONAL DESCRIPTION: 

ENDWRD is called when the end of a word is detected. 

If the word would fit on the current Line it puts it 
there, otherwise it outputs the current Line before 
putting the current word on a new Line. 

i FORMAL PARAMETERS: 

SPACE indicates whether a space should be output following 


' 

' 

4 

' 

' 

' 

' 

| 

: the word, 

: JUSTIFY indicates whether a justification mark snould be output 
following the word. 
' 

' 

' 

' 

' 

J 

' 

' 

t 


7 
. 
. 
o 
. 
. 
. 
. 
. 
2 
. 
oO 
. 
a 
. 
° 
. 
* 
. 
o 
. 
. 
. 
’ 
. 
o 
. 
. 
. 
* 
. 
2 
. 
. 
~ 
a 
. 
a 
. 
2 
. 
. 
7 
. 
. 
2 
. 
. 
. 
. 
~ 
7 
. 
o 


i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
' COMPLETION CODES: None 
BEGIN 
LOCAL 
ADJUST; 


'Check for an active <INDEX flag> immediately, otherwise the 
!index entry could get skipped. 


IF .SCA_X_FLAG 
THE 


OUTXPH (); !The <INDEX flag> is active, output the indexed word. 
IF (.SCA_WRD_CPEND EQL RINTES) 

AND (.SCA_WRD_F_XTN EQL 0) ‘Maybe just an indexing pointer 

AND (.SCA_WRD-FOOTW EQL 0) 'Maybe just a footnote 


AAA AOMAIVNUIMUIUIUIO ES BB BB BB BB WINN POROPOROPOPD 


AN 
(( NOT .SCA_FILL) AND (.SCA_WRD_LST_SP EQL 0)) 

ZIF DSRPLUS ZTHEN 

AND (NOT .sca_wrd_pass) 


POPIPOPOPIPOPONOPONIPIPOPONINONOPONONO OPO PIP RIPPIN PU PIPORIPOPOIFUROPOROIRIPURIPUNROIFUIFO 


2FI 


THEN 
oo 'Nothing to put onto the Line. 
ENDCHR (RINTES); ‘Force out last character of word. 


ZIF DSRPLUS ZTHEN 
oF sca_wrd_pass = false; 
sca_frc_case = false; 'Turn off case forcing. 


OWONOA EWN OOO NOAUE WN HO DOONAN EWIN OOD NA NEWWR OO OON EL EWN OOD NOUE WW 


RoRORoROPOROROROROPORU WWIII Poo ooonononoruny 


SNS NNN NOOO O 


PoORoPoPoNoPoNofonofofory 


i SIDE EFFECTS: None 
| 
!Compute how long Line would be if hyphenation is to be | 
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‘considered. In the gall on ENDWRD for the previous word, 
re 
8 
) 
9 
9 
y 
9 
9 
9 
S 
9 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
n 
1 
1 


1 n for it was left beh 

¢ ‘any requested. What happens now is to see what would happen 
‘if we tried to force this word on at the end of this Line. 

Q ADJUST = at hell 


-1 
ELS 


Pp 
| 
153 | 
1 
) + 
o (IF .HYPHENATE 
THEN 
ELSE 
0); 


‘The OR test detects the case when MRA is about to 
‘overflow, but the word would still fit. If this test is 
'not done, ENDCHR could go into a loop. 


IF ((.TSFLEXT HL + .SCA_WRD_LST_SP + .SCA_WRD_EXT_L + .ADJUST) GTR .SCA_RM) 
a Bs ((.PS_MAXSIZE (MRA) =".FS"LENGTH (MRA))~LSS~10) 


BEGIN !There is no room on this Line 
ee (.SCA_JUSTIFY); 


ELSE 
BEGIN : 
‘First, put og es spaces and gees it tees ton marks from the 
‘previous word in the TSF into the TSF. The information was 
‘already there (i.e., the characters, or intermediate code), but 
‘it was not yet counted as part of TSF. 
‘Also, since there is room for this word, turn off any 
'hyphenation that may be queued on the Line already. 
ee a teeth idl 


5 
3 
3 
5 
3 
3 
3 
3 
z 
3 
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JEXT_HL 'Cancel the ‘-'. 
~SCA 


~TSF_EXT_HL = 1; 
d “WRD_HYP_PTR); 


TSF EXT HL = 
pe (ZC 'N 


MEW 


ee a ee a a a ee ce a ee a ee ed ed 


AIE WN 3 O ODNAULS WIN $0 OONAUESWN $0 ODNAUE AR OOO 


! There are some rather obscure implications as a consequence of what 

! is happening here. In part, this is because of possible error handling. 
! Notice that at this point ENDWRD just assumes that the current word 

! will fit on the bine. and goes ahead and updates the various 

pointers; a if you look around, you will find no checks that 

: e 
1 

' 

i 


verify tha word will, indeed, fit onto the Line between 

the margins. That checking is done by OUTLIN. The idea is that 
if a word is too big, theo the Line can be forced out anyway, 
even if the right marg n is violated. Another point has to do 
with the logic in ENDCHR, when the MRA is about to overflow. 
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le Level Declarations -Sep-1 RUNOFF .SRCJENDWRD.BLI;1 (4) | 
In such a case, it is important that the characters still go 
through, because of the recursive call ENDCHR makes on itself. 


] 

| 

: Fadia function bits (e.g, bolding) 
' 


TSF_FIRST_XTN = .SCA_WRD_F_XTN; 
if ag SEARO LTO NEQ 0) 

TSF_LAST_XTN = .SCA_WRD_L_XITN; 
‘Wipe out Leftovers from previous word 
SCA_WRD_LST_UND = 0; 
SCA_WRD-LST_SP = 0; 
SCA_WRD “tet JUS 
SCA_WRD_LST_HYP 
SCA_WRD_HYP_PTR 
'Next, put the Gertien spaces and justification marks 
‘in, but don't pc tues iy make them part of the TSF. 
iF -SCA_WRD_INT_L NEQ 0 

BEGIN 'Processing associated with a non-null word. 

IF .SCA_WRD_AC_UND OR .SPACE 

BEGIN 


IF .SCA_WRD_AC_UND 
THEN 


F-INT_HE = TSF _INT_HL™+ .SCA "GRD. INT_L); 


FALSE: 


u 
; 7 ' 

3 8 ! 

3 ; 

; 0 'Next, make this curreat word pert ) F 

: 1 ist NBIT TS = (,TSF_NBITS OR .SCA_WRD_NBITS) 

; ‘ TSF-UND = “TSF _UND OR (.SCA_WRD~ its pe UND GTR 

: TSF_H_BARS = (.TSF_H_BARS OR « SCA_WRD_BARS) ; 'Change bar status. 

; 4 TSF-BAR_ CHAR = .SCA_QRD_BAR_CHR; ‘Use Latest change bar character. 

3 5 TSF-SEQR_FLAG = .SCA_WRB_SEON_F; iInput sequence number information. 

; $ TSF_ISEQ’= .GCA_CMD_TSQ; 

: TSETISEQN = .SCK_WRB_ISEQN 

3 8 TSF-IPAGEN = .SCA_WRD_ TPAGEN: 

; 9 af 4 bee te are attached to this word, attach them 

3 'to s 

: § TSF_FOOTW = . TSF FOOTW + .SCA_WRD_FOOTW; 'Add footnote count total for this word to that for 
; Z SCA_WRD _FooTW = 0; 'Now forget it so it won't get counted twice. 
; 5 'Consider Coayemet ion. 

; 6 if »HYPH 

3 7 THEN 

3 8 GIN 

3 9 TSF_INT_HL = .TSF_INT_HL + 3; 'NOTE: The ‘=" has not yet 

r ? >t XT[HL = .TSF_EXT~HL + 1; ‘been put into the MRA!! 

: § SF _DRAFT FLAG = .SCA_WRD_DRAFT_F ‘Indicate if a DRAFT document. 

: 3 TSF “EXT “HL = (LTSFTEXT“HL + .SCATWKDTEXTUL): 

: 7 IF (.TSF_FIRST_XTN EQL 0) 'If an index entry is associated with this word 
3 THEN ‘attach it to this line. 

: 0 

3 

: 4 

; 5 

; 6 

; 

: 0 
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ANLSSe 
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Perform end-word processing -Sep-19 AX-11 Bliss-32 V4.0-74 Page . 
4 BEGIN 'It's an underlined space! 
5 SCA_WRD_LST_UND = 1; 
9 FS_OCHAR (MRA, RINTES); !Generate the intermediate code. 
9 FS“WCHAR (MRA, XC'U'); 
9 FS_WCHAR (MRA, %C° '); 
9 SCK_WRD_AC_UND = FALSE; 
rh 4 END; 
0 FS_WCHAR (MRA, %C' '); 'Add a single trailing space, 
40 SCA_WRD_LST_SP = 1; iand count it. 
0404 END; 
a9 
4 & IF .SCA_WRD 
re AND .SPAC 
04 


BEGIN 
FS_WCHAR (MRA, %C' "); 
Sch WRD_LST_SP = “SCA 


_WRD_ WRD_LST_SP + 1; 
A_WRD-LC_PNCT = FALSE; 
END; 


'Next, ogg 8 justification point, if appropriate. 


4 
4 
4 
08 | 
09 4 
0410 4 
bets 4 
tig 4 
0413 3 
0414 
0415 
0416 IF .JUSTI 
0417 THEN 
0418 4 BEGIN ; 
0419 4 SCA_WRD_LST_JUS = 1; Indicate one justification mark 
0420 4 FS_QCHAR (MRA, RINTES); 
0421 4 FS"WCHAR (MRA, %C'J'); 
04 ¢ 4 FS_WCHAR (MRA, ZC‘ ‘); 
Be ? ENB; 
0425 ‘Put in code for hyphenation, if requested. 
0426 If .HYPHENATE 
0427 THEN 
0428 4 BEGIN 
0429 4 SCA_WRD_LST_HYP = TRUE; 
0430 4 FS_QCHAR (MRA, RINTES); 
0431 4 SCK_WRD_HYP_PTR = .FS_NEXT (MRA): !Remember where '-" is. 
0636 4 FS_QCHAR (MRA, %C'I'); ‘INSERT this character. 
04 4 FS _WCHAR (MRA, %C‘=-"); ‘Here's the ‘-'. 
04 ; END; 
0436 END; ‘End of processing of a non-null word 
Oc38 'Next, reset for the next word : ay ; 
439 SCA_WRD_ TS =F g 'Clear bolding, underlining, and overstriking 
0440 SCATWRD-INT_L = 0; 
441 SCATWRD-EXT-L = 0; 
44 SCAWRD-F_XTN = 0; 
4 SCA-WRD-L-XTN = 0; 
re SCA“WRD-BARS = FALSE; 
44 'Reset case rules. 
44 SCA_WORD_SET = FALSE; !Turn off <CAPITALIZE flag> 
4 SCA-FC_UT = .SCA_FCBE_UT; 
44 SCA_OC_UT = .SCA_OCBE_UT; 
450 SCA_FC_LT = .SCA_FCBE_LT; 


| 
git .PNcT 
'!Add an extra space for punctuation. 
| 
| 
| 
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ENDWR Perform end-word processin 16-Sep-1984 00:24:59 AX-11 Bliss-32 V4.0-74 
v04- Module Level Sec lorst tons ° 12-808- 132 99:88:09 RUNOFF .SRC EWOUND “BL 1 — a8 
: 4 451 SCA_OC_LT = ,SCA_OCBE_LT; 
: 325 4 ; SCA-WRO_FC_UT = 7SCA_FCBE_UT; 
: 326 é SCATWRD“OC"UT = 2SCATOCBEWUT: | 
: 454 SCA_WRD_FC_LT = .SCA_FCBE_LT; 
; 8 455 SCA_WRD_OC_LT = .SCA OCBE_LT; 
: 9 4 § SCA_MNFC_UT = « SCA_MAF CBE_UT; 
3 0 4 SCA_MNOC_UT = .SCA_MNOCBE_UT; 
; 1 $28 SCA_MNFC_LT = .SCA_MNFCBE_LT; 
3 § 8 SCA_MNOC_LT = ,SCA_MNGCBE_LT; 
; 460 SCA-MNWRD_FC_UT = 7SCA_MNFCBE_UT; | 
: 4 461 SCA_MNWRD_OC_UT = .SCA_MNOCBE_UT; 
; 335 46¢ SCAMNWRD-FC-LT = .SCA"MNFCBE-LT: 
3 : Beez SCA_LMNWRD_OC_LT = .SCA_MNOCBE_LT; 
; 8 0465 !Remember where next word will start. (Needed by SCL.) 
; 339 0466 SCA_WRD_PNTR = .FS_NEXT (MRA); 
; 340 046 SCALFC = TRUE; ‘Next character is first character in word 
; 341 0468 SCA_FC_CASE = TRUE; ‘Use first character case rules on next word. 
; 342 0469 1 END; 'End of ENDWRD 
-TITLE ENDWRD Perform end-word processing 
-IDENT \v04-000\ 
eEXTRN RINTES, GCA, IRAC 
.EXTRN MRA, SCA, TSF, ENDCHR 
eEXTRN OUTLIN, OUTXPH 
-PSECT S$CODES,NOWRT,2 
0OFC 00000 ENTRY ENDWRD, Save R2,R3,R4,R5,R6,R7 : 0223 
57 000000006 EF 9E 90008 MOVAB TSF, R? ; 
56 8F 9A 0000 MOVZBL #RINTES, R6 3 
55 00000000G EF 9E 0000D MOVAB MRA, 3 
54 00000000G EF 9E 00014 MOVAB SCA+332, R4 5 
07 FF50 C4& €9 0001B LBC SCA+156, 1$ : 0257 
000000006 y 00 FB Boge CALLS 0 Sur AP : 0259 
é cc (AG CO 00 7 18: CMPL SCA+280, R6 ; 0261 
14 i; 002B BNEQ 2s 3 
oC A& 05 00020 TSTL SCA+296 : 0262 
OF 12 000 BNEQ 3 
D8 A& D5 000 TSTL SCA+292 : 0263 
OA 1 00 BNEQ 2s 3 
05 FFIC D4 € 8 BLBS as Casas. 2$ ; 0265 
4 0 C TSTL CA+33 : 
1 12 000 3 BNEQ 3 
gi 004 RET ; 
7E 56 9A 00041 28: MOVZBL R6, -(SP) : 0272 
00000000G_ EF 01 FB pate CALLS #1 oe 3 
FF54 C4 D4 00048 CLRL SCA $0 ; 0277 
93 FAG COE ie BLBC SCA+320, 3$ : 0284 
1 1 cf 053 MNEGL #1, R1 : 0286 
¢ 0 § BRE 4$ : 
D4 3$: CLRL R1 3 oses 
93 Oc ac €9 A 4$: BLBC HYPHENATE, 5$ 3 89 
0 4 dO 3 f MOVL #1, RO ; 
e Wi 6 BRB 6$ ; 
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ENDWRD Perform end-word processin 18-56 -1984 2:24:59 AxX-11 Bliss-32 V4.0-74 Pp 
v04-000 Module Level Declarations ° 1 730071382 99:66:09 RUNOFF . SRC EWOWRD OL 124 4 ws 
D4 5$: CLRL. OR ; “S| 
1 30 C ; 6$: ADDL2 RS ADJUST : 4 
67 D MOVL TSF, R t 0299 a 
64 D B MOVL.  SCA+332, R3 : 4 
50 04 A2 C1 ADDL3 4 (R2), R3, RO ; ; 4 
B4 AG C0 0 ADDL2 S$CA+256, RO : 3 4 
21 ¢ 7 ADDL2 ADJUST, RO : 3; 4 
FF2C 4 0 D1 7A CMPL RO, asta+120 : ; 
50 of 06 if movi MRA, R : 0300 a 
° 3 - ¢ 
51 0c AO BA at SoBe ADDL3 #10 mS ROD, R1 : 3 4 
51 08 Ad 01 0089 CMPL (RO), R1 : . 4 
rie BB BRE rs: BERL Baoan fows| | 
00000006 EF O1 FB 00098 CALLS #1, OUTLIN : ; | 
A 11 O009A BRB + 0299 | 
08 F4 «AG «ES 0009C 8S: BLBC  $CA+320, 9$ + 0313 4 
04 A2 OD? O0A0 DECL 4¢(R2) : 0316 a 
F8 BG 4E 8F 90 000A MOVE. #78, aSCA+324 : 031 i 
50 62 53 C1 OOOAR 9S: ADDL RS, (R2), R + 0320 : 4 
51 08 AG 03 ¢5 OO0AC MULLS #3, SCA+340, R1 + 0321 aa 
51 50 ¢0 00081 ADDL2 RO. R1 : 3 4 
50 04 Ad 03 ¢5 000B4 MULL3 #3, SCA+336, RO + 0322 3 4 
62 51 30 C1 00089 ADDL3 RO. R1, (R25 : 3 4 
04 Ag 5 C0 000BD ADDL2 R3, 4(R2) : 0323 , 4 
20 A “ome 900¢1 ADDL2  SCA+336, 32(R2) : 0324 3; 4 
50 67 DO 000C6 19$: MOVL TSF, > 0325 3 4 
08 Ao FF74 C4 CB 000C9 BISL2 SCA+192, 8(RO) + 0341 3; 
51 04 OOOCF CLRL 1 + 0342 , 4 
08 A4& D5 00001 TSTL SCA+340 : gs « 
02 15 00004 BLE ~=s-s«wW¥'8 : 
51 D6 00006 INCL RI : 
52 08 Ad 01 01 cr 90008 11$:  EXTZV. #1, #1, 8(RO), R2 : 
52 51 88 OOODE BISB2 R1. R : 
08 a0 01 01 52 FO O00E1 INSV. R2, #1, #1, 8(RO) : 
51 0080 CO 01 00 EF 000E7 EXTZV #0. #1. 128(RO0), R1 > 0343 
52 C4 AG 01 00 cf OOEE EXTZV #0. #1. SCA+272, R2 : 
51 52 88 000F4 BISB2 R2. RI : 
0080 co 01 00 51 FO 000F7 INSV.R1 40 #1, 128(RO0) : 
1¢ AO C8 «AG OO OOF MOVL  SCA+276, 26(R0) + 0344 
10 AO DO A& DO 0010 MOVL Scat 84. 16(RO) > 0345 
44 AO 000000006 EF 01 02 EF 00108 EXTZV #2, #1 GCA+r6 68(RO) > 0346 
48 AO BS A4 DO 112 MOVL  SCA+266, 72(ROS + 0347 
4C Ad D4 AG 00 O11 MOVL.  SCA+ 8 P 78(RO) : 0348 
OC A D8 As CO O01IC ADDL2 SCA+292. 12(RO) : 0 3g 
D8 Ad D4 00121 CLRL SCA+29 > 035 
06 OC AC E9 00124 BLBC 4HYPHENATE, 12$ > 0356 
60 03 CO 00128 ADDL2 #3, (RO) > 0359 
04 Ad OD ot B INCL  4(RO) ; 0 69 
30 Ad CO AG DO OO12E 12$: MOVL SCA+268, 48(RO) F 0 5 
60 BO Ad CO 001 ADDL2 SCA+252. (RO) : 0364 
04 AO 4 A& C0 001 ADDL CAs * 4(RO) > 0365 
8 A : 13¢ TSTL GAR ) > 0367 
05 13F BNEQ «138 : 
38 =A pc 36 ASSO 00141 MOVL SCA+29 , 56(RO) : 0369 
51 EO AG 06 146 13$: MOVL Scat 00, R1 : 0371 
04 13 OO14A BEQL 4$ : 
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ENDWR Perform end-word processin 1b-se Sep-1 AX-11 Bliss-32 V4.0-7 Page 12 
FOo"000 Module Level Declarat ons . =9007 1382 99: 66; 83 RUNOFF .SRC EWOWRD<BLI: ’ (4) 
3 COMMAND QUALIFIERS 

b} BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ENDWRD/OBJ=OBJ$:ENDWRD MSRC$:ENDWRD/UPDATE=(ENHS$:ENDWRD) 

; Size: 664 ode ¢ + 0 data bytes 

; Run Time: # 

; Elapsed Time: 00:5 3 


161 
; onenees Nas 23462 
; Memor 205 pages 


> Lines/CPU Min: 
: Eomethekton, Complete 
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